home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 5 / BBS in a Box -Volume V (BBS in a Box) (April 1992).iso / Files / Prog / N-P / Pocket3.cpt / Reader < prev    next >
MacBinary  |  1988-02-09  |  7.1 KB  |  [TEXT/EDIT]
open in: MacOS 8.1     |     Win98     |     DOS

browse contents    |     view JSON data     |     view as text


This file was processed as: MacBinary (archive/macBinary).

ConfidenceProgramDetectionMatch TypeSupport
10% dexvert MacBinary (archive/macBinary) fallback Supported
10% dexvert Jesper Olsen Module (music/jesperOlsen) magic Supported
1% dexvert Text File (text/txt) fallback Supported
100% file MacBinary II, inited, Tue Feb 9 12:11:15 1988, modified Tue Feb 9 12:11:15 1988, creator Macintosh Edit, type ASCII, 6734 bytes "Reader" , at 0x1ace 348 bytes resource default (weak)
99% file data default
49% TrID Macintosh plain text (MacBinary) default
33% TrID TTComp archive compressed (bin-4K) default (weak)
16% TrID MacBinary 2 default (weak)
100% siegfried fmt/1762 MacBinary (II) default
100% lsar MacBinary default


id metadata
keyvalue
macFileType[TEXT]
macFileCreator[EDIT]


hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 06 52 65 61 64 65 72 | 00 00 00 00 00 00 00 00 |..Reader|........|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 45 44 49 | 54 01 00 00 00 00 00 00 |.TEXTEDI|T.......|
|00000050| 00 00 00 00 00 1a 4e 00 | 00 01 5c 9e 34 f1 b3 9e |......N.|..\.4...|
|00000060| 34 f1 b3 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |4.......|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 8c 69 00 00 |........|.....i..|
|00000080| 28 20 52 65 61 64 65 72 | 20 61 70 70 6c 69 63 61 |( Reader| applica|
|00000090| 74 69 6f 6e 20 6f 6e 6c | 79 20 29 20 66 6f 72 67 |tion onl|y ) forg|
|000000a0| 65 74 20 74 61 73 6b 20 | 3a 20 74 61 73 6b 20 3b |et task |: task ;|
|000000b0| 0d 0d 28 20 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |..( ****|********|
|000000c0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 20 29 0d |********|***** ).|
|000000d0| 28 20 2a 2a 2a 2a 20 20 | 57 20 41 20 52 20 4e 20 |( ****  |W A R N |
|000000e0| 49 20 4e 20 47 20 20 2a | 2a 2a 2a 20 29 0d 28 20 |I N G  *|*** ).( |
|000000f0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000100| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 20 29 0d 28 20 20 20 |********|* ).(   |
|00000110| 54 68 69 73 20 66 69 6c | 65 20 73 65 61 6c 73 20 |This fil|e seals |
|00000120| 6f 66 66 20 74 68 65 20 | 69 6e 70 75 74 20 72 6f |off the |input ro|
|00000130| 75 74 69 6e 65 73 20 6f | 66 20 50 6f 63 6b 65 74 |utines o|f Pocket|
|00000140| 20 46 6f 72 74 68 20 29 | 0d 28 20 63 72 65 61 74 | Forth )|.( creat|
|00000150| 69 6e 67 20 61 20 73 74 | 61 6e 64 20 61 6c 6f 6e |ing a st|and alon|
|00000160| 65 20 61 70 70 6c 69 63 | 61 74 69 6f 6e 2e 20 20 |e applic|ation.  |
|00000170| 54 68 65 20 70 72 6f 63 | 65 73 73 20 69 73 20 4e |The proc|ess is N|
|00000180| 4f 54 20 29 0d 28 20 72 | 65 76 65 72 73 61 62 6c |OT ).( r|eversabl|
|00000190| 65 21 20 54 68 65 20 63 | 6f 70 79 20 6f 66 20 50 |e! The c|opy of P|
|000001a0| 6f 63 6b 65 74 20 46 6f | 72 74 68 20 74 68 69 73 |ocket Fo|rth this|
|000001b0| 20 69 73 20 6c 6f 61 64 | 65 64 20 69 6e 74 6f 20 | is load|ed into |
|000001c0| 29 0d 28 20 77 69 6c 6c | 20 6e 6f 20 6c 6f 6e 67 |).( will| no long|
|000001d0| 65 72 20 62 65 20 75 73 | 61 62 6c 65 20 61 73 20 |er be us|able as |
|000001e0| 50 6f 63 6b 65 74 20 46 | 6f 72 74 68 2e 20 20 42 |Pocket F|orth.  B|
|000001f0| 65 20 73 75 72 65 20 79 | 6f 75 20 29 0d 28 20 75 |e sure y|ou ).( u|
|00000200| 6e 64 65 72 73 74 61 6e | 64 20 77 68 61 74 20 79 |nderstan|d what y|
|00000210| 6f 75 20 61 72 65 20 64 | 6f 69 6e 67 20 62 65 66 |ou are d|oing bef|
|00000220| 6f 72 65 20 6d 6f 64 69 | 66 79 69 6e 67 20 74 68 |ore modi|fying th|
|00000230| 69 73 20 29 0d 28 20 70 | 72 6f 67 72 61 6d 2e 20 |is ).( p|rogram. |
|00000240| 20 52 65 61 64 20 69 74 | 20 65 6e 74 69 72 65 6c | Read it| entirel|
|00000250| 79 2e 20 20 59 6f 75 20 | 68 61 76 65 20 62 65 65 |y.  You |have bee|
|00000260| 6e 20 77 61 72 6e 65 64 | 2e 20 29 0d 0d 28 20 20 |n warned|. )..(  |
|00000270| 48 69 74 20 61 6e 79 20 | 6b 65 79 20 74 6f 20 63 |Hit any |key to c|
|00000280| 6f 6e 74 69 6e 75 65 2e | 20 20 51 75 69 74 20 66 |ontinue.|  Quit f|
|00000290| 72 6f 6d 20 6d 65 6e 75 | 20 74 6f 20 61 62 6f 72 |rom menu| to abor|
|000002a0| 74 2e 20 29 0d 0d 6b 65 | 79 20 64 72 6f 70 20 20 |t. )..ke|y drop  |
|000002b0| 28 20 6c 61 73 74 20 63 | 68 61 6e 63 65 20 29 0d |( last c|hance ).|
|000002c0| 0d 3a 20 21 46 4f 4e 54 | 20 28 20 6e 20 2d 2d 20 |.: !FONT| ( n -- |
|000002d0| 29 20 3e 72 20 2c 24 20 | 41 38 38 37 20 3b 20 20 |) >r ,$ |A887 ;  |
|000002e0| 28 20 5f 54 65 78 74 46 | 6f 6e 74 20 29 0d 3a 20 |( _TextF|ont ).: |
|000002f0| 21 46 53 49 5a 45 20 28 | 20 6e 20 2d 2d 20 29 20 |!FSIZE (| n -- ) |
|00000300| 3e 72 20 2c 24 20 41 38 | 38 41 20 3b 20 20 28 20 |>r ,$ A8|8A ;  ( |
|00000310| 5f 54 65 78 74 53 69 7a | 65 20 29 0d 3a 20 53 46 |_TextSiz|e ).: SF|
|00000320| 4f 4e 54 20 28 20 2d 2d | 20 29 20 30 20 21 66 6f |ONT ( --| ) 0 !fo|
|00000330| 6e 74 20 20 31 32 20 21 | 66 73 69 7a 65 20 3b 20 |nt  12 !|fsize ; |
|00000340| 20 28 20 31 32 20 70 6f | 69 6e 74 20 43 68 69 63 | ( 12 po|int Chic|
|00000350| 61 67 6f 20 29 0d 3a 20 | 43 4c 53 20 28 20 2d 2d |ago ).: |CLS ( --|
|00000360| 20 29 20 34 20 2b 6d 64 | 20 61 3e 72 20 2c 24 20 | ) 4 +md| a>r ,$ |
|00000370| 41 38 41 33 20 20 32 30 | 20 32 30 20 21 70 65 6e |A8A3  20| 20 !pen|
|00000380| 20 3b 20 20 28 20 43 4c | 65 61 72 20 53 63 72 65 | ;  ( CL|ear Scre|
|00000390| 65 6e 20 29 0d 0d 28 20 | 70 6f 6c 79 67 6f 6e 20 |en )..( |polygon |
|000003a0| 68 61 6e 64 6c 65 20 73 | 74 6f 72 61 67 65 20 29 |handle s|torage )|
|000003b0| 0d 32 76 61 72 69 61 62 | 6c 65 20 41 50 4f 4c 59 |.2variab|le APOLY|
|000003c0| 0d 32 76 61 72 69 61 62 | 6c 65 20 46 50 4f 4c 59 |.2variab|le FPOLY|
|000003d0| 0d 0d 3a 20 3f 50 48 49 | 54 20 28 20 68 20 76 20 |..: ?PHI|T ( h v |
|000003e0| 70 6f 6c 79 20 2d 2d 20 | 66 6c 61 67 20 29 20 28 |poly -- |flag ) (|
|000003f0| 20 74 72 75 65 20 69 66 | 20 68 2c 76 20 69 73 20 | true if| h,v is |
|00000400| 69 6e 20 70 6f 6c 79 42 | 42 6f 78 20 29 0d 20 20 |in polyB|Box ).  |
|00000410| 20 20 30 20 3e 72 20 20 | 32 40 20 64 6c 40 20 20 |  0 >r  |2@ dl@  |
|00000420| 32 20 30 20 64 2b 20 20 | 32 73 77 61 70 20 32 3e |2 0 d+  |2swap 2>|
|00000430| 72 20 20 32 3e 72 20 2c | 24 20 41 38 41 44 20 72 |r  2>r ,|$ A8AD r|
|00000440| 3e 20 3b 20 20 28 20 5f | 50 74 49 6e 52 65 63 74 |> ;  ( _|PtInRect|
|00000450| 20 29 0d 0d 28 20 63 72 | 65 61 74 65 20 70 6f 6c | )..( cr|eate pol|
|00000460| 79 67 6f 6e 73 20 29 0d | 3a 20 2a 50 4f 4c 59 20 |ygons ).|: *POLY |
|00000470| 28 20 61 64 64 72 20 2d | 2d 20 29 20 30 20 30 20 |( addr -|- ) 0 0 |
|00000480| 32 3e 72 20 2c 24 20 41 | 38 43 42 20 32 72 3e 20 |2>r ,$ A|8CB 2r> |
|00000490| 72 6f 74 20 32 21 20 3b | 20 20 28 20 5f 4f 70 65 |rot 2! ;|  ( _Ope|
|000004a0| 6e 50 6f 6c 79 20 29 0d | 3a 20 2a 41 50 4f 4c 59 |nPoly ).|: *APOLY|
|000004b0| 20 28 20 2d 2d 20 29 20 | 61 70 6f 6c 79 20 2a 70 | ( -- ) |apoly *p|
|000004c0| 6f 6c 79 0d 20 20 20 20 | 35 20 32 32 35 20 21 70 |oly.    |5 225 !p|
|000004d0| 65 6e 20 32 30 20 32 31 | 30 20 2d 74 6f 20 35 30 |en 20 21|0 -to 50|
|000004e0| 20 32 31 30 20 2d 74 6f | 0d 20 20 20 20 35 30 20 | 210 -to|.    50 |
|000004f0| 32 34 30 20 2d 74 6f 20 | 32 30 20 32 34 30 20 2d |240 -to |20 240 -|
|00000500| 74 6f 20 20 35 20 32 32 | 35 20 2d 74 6f 20 20 2c |to  5 22|5 -to  ,|
|00000510| 24 20 41 38 43 43 20 3b | 20 20 28 20 5f 43 6c 6f |$ A8CC ;|  ( _Clo|
|00000520| 73 65 50 67 6f 6e 20 29 | 0d 3a 20 2a 46 50 4f 4c |sePgon )|.: *FPOL|
|00000530| 59 20 28 20 2d 2d 20 29 | 20 66 70 6f 6c 79 20 2a |Y ( -- )| fpoly *|
|00000540| 70 6f 6c 79 0d 20 20 20 | 20 34 34 30 20 32 32 35 |poly.   | 440 225|
|00000550| 20 21 70 65 6e 20 34 32 | 35 20 32 31 30 20 2d 74 | !pen 42|5 210 -t|
|00000560| 6f 20 33 39 30 20 32 31 | 30 20 2d 74 6f 0d 20 20 |o 390 21|0 -to.  |
|00000570| 20 20 33 39 30 20 32 34 | 30 20 2d 74 6f 20 20 34 |  390 24|0 -to  4|
|00000580| 32 35 20 32 34 30 20 2d | 74 6f 20 34 34 30 20 32 |25 240 -|to 440 2|
|00000590| 32 35 20 2d 74 6f 20 20 | 2c 24 20 41 38 43 43 20 |25 -to  |,$ A8CC |
|000005a0| 3b 20 20 28 20 5f 43 6c | 6f 73 65 50 67 6f 6e 20 |;  ( _Cl|osePgon |
|000005b0| 29 0d 0d 28 20 70 72 69 | 6e 74 20 70 6f 6c 79 67 |)..( pri|nt polyg|
|000005c0| 6f 6e 20 29 0d 3a 20 2e | 50 4f 4c 59 20 28 20 61 |on ).: .|POLY ( a|
|000005d0| 64 64 72 20 2d 2d 20 29 | 20 32 40 20 32 3e 72 20 |ddr -- )| 2@ 2>r |
|000005e0| 2c 24 20 41 38 43 36 20 | 3b 20 20 28 20 5f 46 72 |,$ A8C6 |;  ( _Fr|
|000005f0| 61 6d 65 50 6f 6c 79 20 | 29 0d 3a 20 2e 41 41 52 |amePoly |).: .AAR|
|00000600| 52 4f 57 20 28 20 2d 2d | 20 29 20 30 31 35 20 32 |ROW ( --| ) 015 2|
|00000610| 33 30 20 21 70 65 6e 20 | 2e 22 20 42 61 63 6b 22 |30 !pen |." Back"|
|00000620| 20 20 61 70 6f 6c 79 20 | 2e 70 6f 6c 79 20 3b 0d |  apoly |.poly ;.|
|00000630| 3a 20 2e 46 41 52 52 4f | 57 20 28 20 2d 2d 20 29 |: .FARRO|W ( -- )|
|00000640| 20 33 39 36 20 32 33 30 | 20 21 70 65 6e 20 2e 22 | 396 230| !pen ."|
|00000650| 20 4e 65 78 74 22 20 20 | 66 70 6f 6c 79 20 2e 70 | Next"  |fpoly .p|
|00000660| 6f 6c 79 20 3b 0d 3a 20 | 2e 41 52 52 4f 57 53 20 |oly ;.: |.ARROWS |
|00000670| 28 20 2d 2d 20 29 20 2e | 61 61 72 72 6f 77 20 2e |( -- ) .|aarrow .|
|00000680| 66 61 72 72 6f 77 20 3b | 0d 20 20 20 20 20 20 0d |farrow ;|.      .|
|00000690| 28 20 70 72 69 6e 74 20 | 50 49 43 54 20 72 65 73 |( print |PICT res|
|000006a0| 6f 75 72 63 65 73 20 66 | 72 6f 6d 20 74 68 69 73 |ources f|rom this|
|000006b0| 20 66 69 6c 65 20 29 0d | 3a 20 48 4c 4f 43 4b 20 | file ).|: HLOCK |
|000006c0| 28 20 64 68 20 2d 2d 20 | 64 68 20 29 20 2c 24 20 |( dh -- |dh ) ,$ |
|000006d0| 32 30 35 36 20 2c 24 20 | 41 30 32 39 20 3b 20 20 |2056 ,$ |A029 ;  |
|000006e0| 28 20 6d 6f 76 65 61 2e | 6c 20 5b 70 73 5d 2c 61 |( movea.|l [ps],a|
|000006f0| 30 20 20 5f 48 4c 6f 63 | 6b 20 29 0d 3a 20 48 55 |0  _HLoc|k ).: HU|
|00000700| 4e 4c 4f 43 4b 20 28 20 | 64 68 20 2d 2d 20 29 20 |NLOCK ( |dh -- ) |
|00000710| 2c 24 20 32 30 35 45 20 | 2c 24 20 41 30 32 41 20 |,$ 205E |,$ A02A |
|00000720| 3b 20 20 28 20 6d 6f 76 | 65 61 2e 6c 20 5b 70 73 |;  ( mov|ea.l [ps|
|00000730| 5d 2b 2c 61 30 20 20 5f | 48 55 6e 6c 6f 63 6b 20 |]+,a0  _|HUnlock |
|00000740| 29 0d 3a 20 47 45 54 50 | 49 43 54 20 28 20 69 64 |).: GETP|ICT ( id|
|00000750| 20 2d 2d 20 64 68 61 6e | 64 6c 65 20 29 20 30 20 | -- dhan|dle ) 0 |
|00000760| 30 20 32 3e 72 20 20 3e | 72 20 20 2c 24 20 41 39 |0 2>r  >|r  ,$ A9|
|00000770| 42 43 20 20 32 72 3e 20 | 3b 20 20 28 20 5f 47 65 |BC  2r> |;  ( _Ge|
|00000780| 74 50 69 63 74 20 29 0d | 3a 20 44 50 49 43 54 20 |tPict ).|: DPICT |
|00000790| 28 20 72 65 63 74 20 69 | 64 20 2d 2d 20 29 20 47 |( rect i|d -- ) G|
|000007a0| 65 74 50 69 63 74 20 20 | 28 20 2d 2d 20 70 69 63 |etPict  |( -- pic|
|000007b0| 74 75 72 65 73 2e 68 61 | 6e 64 6c 65 20 29 0d 20 |tures.ha|ndle ). |
|000007c0| 20 20 20 68 4c 6f 63 6b | 20 32 64 75 70 20 32 3e |   hLock| 2dup 2>|
|000007d0| 72 20 72 6f 74 20 61 3e | 72 20 2c 24 20 41 38 46 |r rot a>|r ,$ A8F|
|000007e0| 36 20 20 68 55 6e 6c 6f | 63 6b 20 3b 20 20 28 20 |6  hUnlo|ck ;  ( |
|000007f0| 5f 44 72 61 77 50 69 63 | 74 75 72 65 20 29 0d 0d |_DrawPic|ture )..|
|00000800| 28 20 72 65 63 74 73 20 | 66 6f 72 20 70 69 63 74 |( rects |for pict|
|00000810| 75 72 65 73 20 29 0d 76 | 61 72 69 61 62 6c 65 20 |ures ).v|ariable |
|00000820| 50 52 45 43 54 20 20 30 | 20 70 72 65 63 74 20 21 |PRECT  0| prect !|
|00000830| 20 35 31 20 2c 20 31 39 | 37 20 2c 20 34 31 30 20 | 51 , 19|7 , 410 |
|00000840| 2c 20 20 28 20 74 69 74 | 6c 65 20 70 69 63 74 75 |,  ( tit|le pictu|
|00000850| 72 65 20 72 65 63 74 20 | 29 0d 76 61 72 69 61 62 |re rect |).variab|
|00000860| 6c 65 20 53 52 45 43 54 | 20 20 31 34 32 20 73 72 |le SRECT|  142 sr|
|00000870| 65 63 74 20 21 20 32 35 | 32 20 2c 20 31 37 31 20 |ect ! 25|2 , 171 |
|00000880| 2c 20 34 30 30 20 2c 20 | 20 28 20 73 69 67 6e 61 |, 400 , | ( signa|
|00000890| 74 75 72 65 20 72 65 63 | 74 20 29 0d 0d 3a 20 53 |ture rec|t )..: S|
|000008a0| 43 52 20 28 20 2d 2d 20 | 29 20 40 70 65 6e 20 73 |CR ( -- |) @pen s|
|000008b0| 77 61 70 20 64 72 6f 70 | 20 31 36 20 2b 20 35 30 |wap drop| 16 + 50|
|000008c0| 20 73 77 61 70 20 21 70 | 65 6e 20 3b 20 20 28 20 | swap !p|en ;  ( |
|000008d0| 73 70 65 63 69 61 6c 20 | 63 72 20 29 0d 0d 28 20 |special |cr )..( |
|000008e0| 50 31 20 2d 20 50 3f 20 | 61 72 65 20 70 61 67 65 |P1 - P? |are page|
|000008f0| 20 64 72 61 77 69 6e 67 | 20 72 6f 75 74 69 6e 65 | drawing| routine|
|00000900| 73 2e 20 20 54 68 65 79 | 20 68 61 76 65 20 6e 6f |s.  They| have no|
|00000910| 20 73 74 61 63 6b 20 65 | 66 66 65 63 74 2e 29 0d | stack e|ffect.).|
|00000920| 3a 20 50 31 20 20 63 6c | 73 20 20 70 72 65 63 74 |: P1  cl|s  prect|
|00000930| 20 34 30 30 30 20 64 70 | 69 63 74 0d 20 20 20 20 | 4000 dp|ict.    |
|00000940| 32 33 20 33 30 20 21 70 | 65 6e 20 2e 22 20 4e 45 |23 30 !p|en ." NE|
|00000950| 57 21 22 20 20 2e 66 61 | 72 72 6f 77 20 3b 0d 0d |W!"  .fa|rrow ;..|
|00000960| 3a 20 50 32 20 20 63 6c | 73 20 73 63 72 0d 20 20 |: P2  cl|s scr.  |
|00000970| 20 20 2e 22 20 20 20 20 | 20 20 20 49 74 73 20 46 |  ."    |   Its F|
|00000980| 41 53 54 2c 20 69 74 73 | 20 46 55 4e 20 61 6e 64 |AST, its| FUN and|
|00000990| 20 69 74 73 20 46 52 45 | 45 21 22 20 73 63 72 20 | its FRE|E!" scr |
|000009a0| 73 63 72 0d 20 20 20 20 | 2e 22 20 20 20 20 52 65 |scr.    |."    Re|
|000009b0| 6c 65 61 73 65 20 33 20 | 6f 66 20 74 68 65 20 50 |lease 3 |of the P|
|000009c0| 6f 63 6b 65 74 20 46 6f | 72 74 68 20 73 79 73 74 |ocket Fo|rth syst|
|000009d0| 65 6d 20 69 73 20 70 72 | 6f 76 69 64 65 64 20 74 |em is pr|ovided t|
|000009e0| 6f 22 20 73 63 72 0d 20 | 20 20 20 2e 22 20 20 74 |o" scr. |   ."  t|
|000009f0| 68 65 20 70 75 62 6c 69 | 63 20 62 79 20 43 6f 6d |he publi|c by Com|
|00000a00| 6d 65 72 63 69 61 6c 20 | 49 6d 61 67 69 6e 67 2e |mercial |Imaging.|
|00000a10| 22 20 63 72 20 73 63 72 | 0d 20 20 20 20 2e 22 20 |" cr scr|.    ." |
|00000a20| 20 20 20 46 6f 72 20 69 | 6e 66 6f 72 6d 61 74 69 |   For i|nformati|
|00000a30| 6f 6e 2c 20 65 74 63 2e | 2c 20 73 65 6e 64 20 65 |on, etc.|, send e|
|00000a40| 6c 65 63 74 72 6f 6e 69 | 63 20 6d 61 69 6c 20 74 |lectroni|c mail t|
|00000a50| 6f 20 6d 65 22 20 73 63 | 72 0d 20 20 20 20 2e 22 |o me" sc|r.    ."|
|00000a60| 20 20 6f 6e 20 43 6f 6d | 70 75 53 65 72 76 65 20 |  on Com|puServe |
|00000a70| 61 74 20 5b 37 30 35 36 | 36 2c 31 34 37 34 5d 2e |at [7056|6,1474].|
|00000a80| 20 20 49 20 61 6e 73 77 | 65 72 20 61 6c 6c 20 6d |  I answ|er all m|
|00000a90| 61 69 6c 2c 22 20 73 63 | 72 0d 20 20 20 20 2e 22 |ail," sc|r.    ."|
|00000aa0| 20 20 61 6e 64 20 79 6f | 75 72 20 69 6e 70 75 74 |  and yo|ur input|
|00000ab0| 20 69 73 20 77 65 6c 63 | 6f 6d 65 2e 22 20 20 73 | is welc|ome."  s|
|00000ac0| 72 65 63 74 20 34 30 30 | 31 20 64 70 69 63 74 0d |rect 400|1 dpict.|
|00000ad0| 20 20 20 20 2e 61 72 72 | 6f 77 73 20 3b 0d 0d 3a |    .arr|ows ;..:|
|00000ae0| 20 50 33 20 20 63 6c 73 | 0d 20 20 20 20 2e 22 20 | P3  cls|.    ." |
|00000af0| 20 20 20 20 20 20 20 20 | 20 20 50 61 63 6b 69 6e |        |  Packin|
|00000b00| 67 20 4c 69 73 74 22 20 | 63 72 20 73 63 72 0d 20 |g List" |cr scr. |
|00000b10| 20 20 20 2e 22 20 50 6f | 63 6b 65 74 20 46 6f 72 |   ." Po|cket For|
|00000b20| 74 68 20 72 65 6c 65 61 | 73 65 20 33 20 63 6f 6e |th relea|se 3 con|
|00000b30| 74 61 69 6e 73 3a 22 20 | 73 63 72 0d 20 20 20 20 |tains:" |scr.    |
|00000b40| 2e 22 20 20 a5 20 50 6f | 63 6b 65 74 20 46 6f 72 |."  . Po|cket For|
|00000b50| 74 68 2c 20 44 41 20 76 | 65 72 2e 20 31 2e 33 20 |th, DA v|er. 1.3 |
|00000b60| 28 61 20 46 6f 6e 74 2f | 44 41 20 4d 6f 76 65 72 |(a Font/|DA Mover|
|00000b70| 20 66 69 6c 65 29 22 20 | 73 63 72 0d 20 20 20 20 | file)" |scr.    |
|00000b80| 2e 22 20 20 a5 20 50 6f | 63 6b 65 74 20 46 6f 72 |."  . Po|cket For|
|00000b90| 74 68 2c 20 61 70 70 6c | 69 63 61 74 69 6f 6e 20 |th, appl|ication |
|00000ba0| 76 65 72 2e 20 30 2e 33 | 22 20 73 63 72 0d 20 20 |ver. 0.3|" scr.  |
|00000bb0| 20 20 2e 22 20 20 a5 20 | 54 68 65 20 50 6f 63 6b |  ."  . |The Pock|
|00000bc0| 65 74 20 46 6f 72 74 68 | 20 4d 61 6e 75 61 6c 20 |et Forth| Manual |
|00000bd0| 28 61 20 4d 61 63 57 72 | 69 74 65 20 34 2e 35 20 |(a MacWr|ite 4.5 |
|00000be0| 66 69 6c 65 29 22 20 73 | 63 72 0d 20 20 20 20 2e |file)" s|cr.    .|
|00000bf0| 22 20 20 a5 20 54 68 65 | 20 47 6c 6f 73 73 61 72 |"  . The| Glossar|
|00000c00| 79 20 6f 66 20 50 6f 63 | 6b 65 74 20 46 6f 72 74 |y of Poc|ket Fort|
|00000c10| 68 20 57 6f 72 64 73 20 | 28 61 6e 20 45 64 69 74 |h Words |(an Edit|
|00000c20| 20 66 69 6c 65 29 22 20 | 63 72 20 73 63 72 20 0d | file)" |cr scr .|
|00000c30| 20 20 20 20 2e 22 20 20 | 20 20 20 20 20 20 45 78 |    ."  |      Ex|
|00000c40| 61 6d 70 6c 65 20 54 65 | 78 74 20 46 69 6c 65 73 |ample Te|xt Files|
|00000c50| 3a 20 28 45 64 69 74 20 | 66 69 6c 65 73 29 22 20 |: (Edit |files)" |
|00000c60| 73 63 72 0d 20 20 20 20 | 2e 22 20 20 a5 20 50 61 |scr.    |."  . Pa|
|00000c70| 69 6e 74 3a 20 20 20 20 | 42 75 69 6c 64 20 61 20 |int:    |Build a |
|00000c80| 70 61 69 6e 74 20 70 72 | 6f 67 72 61 6d 20 77 69 |paint pr|ogram wi|
|00000c90| 74 68 20 74 68 65 20 74 | 6f 6f 6c 62 6f 78 22 20 |th the t|oolbox" |
|00000ca0| 73 63 72 0d 20 20 20 20 | 2e 22 20 20 a5 20 4d 61 |scr.    |."  . Ma|
|00000cb0| 74 68 3a 20 20 20 20 46 | 69 78 65 64 20 61 6e 64 |th:    F|ixed and|
|00000cc0| 20 66 6c 6f 61 74 69 6e | 67 20 6d 61 74 68 20 6c | floatin|g math l|
|00000cd0| 69 62 72 61 72 79 22 20 | 73 63 72 0d 20 20 20 20 |ibrary" |scr.    |
|00000ce0| 2e 22 20 20 a5 20 53 69 | 65 76 65 3a 20 20 20 20 |."  . Si|eve:    |
|00000cf0| 54 68 65 20 53 69 65 76 | 65 20 6f 66 20 45 72 61 |The Siev|e of Era|
|00000d00| 73 74 6f 74 68 61 6e 65 | 73 20 62 65 6e 63 68 6d |stothane|s benchm|
|00000d10| 61 72 6b 22 20 73 63 72 | 0d 20 20 20 20 2e 22 20 |ark" scr|.    ." |
|00000d20| 20 a5 20 52 65 61 64 65 | 72 3a 20 43 72 65 61 74 | . Reade|r: Creat|
|00000d30| 65 20 74 68 69 73 20 73 | 74 61 6e 64 20 61 6c 6f |e this s|tand alo|
|00000d40| 6e 65 20 61 70 70 6c 69 | 63 61 74 69 6f 6e 22 0d |ne appli|cation".|
|00000d50| 20 20 20 20 2e 61 72 72 | 6f 77 73 20 3b 0d 0d 3a |    .arr|ows ;..:|
|00000d60| 20 50 34 20 20 63 6c 73 | 20 73 63 72 0d 20 20 20 | P4  cls| scr.   |
|00000d70| 20 2e 22 20 4d 61 6a 6f | 72 20 63 68 61 6e 67 65 | ." Majo|r change|
|00000d80| 73 20 73 69 6e 63 65 20 | 72 65 6c 65 61 73 65 20 |s since |release |
|00000d90| 32 3a 22 20 63 72 20 73 | 63 72 0d 20 20 20 20 2e |2:" cr s|cr.    .|
|00000da0| 22 20 20 20 20 20 54 68 | 65 20 61 70 70 6c 69 63 |"     Th|e applic|
|00000db0| 61 74 69 6f 6e 20 61 6e | 64 20 44 41 20 76 65 72 |ation an|d DA ver|
|00000dc0| 73 69 6f 6e 73 20 61 72 | 65 20 6e 6f 77 22 20 73 |sions ar|e now" s|
|00000dd0| 63 72 0d 20 20 20 20 2e | 22 20 20 20 63 6f 6d 70 |cr.    .|"   comp|
|00000de0| 61 74 69 62 6c 65 20 77 | 69 74 68 20 65 61 63 68 |atible w|ith each|
|00000df0| 20 6f 74 68 65 72 2e 20 | 20 4d 6f 73 74 20 70 72 | other. | Most pr|
|00000e00| 6f 67 72 61 6d 73 22 20 | 73 63 72 0d 20 20 20 20 |ograms" |scr.    |
|00000e10| 2e 22 20 20 20 77 72 69 | 74 74 65 6e 20 69 6e 20 |."   wri|tten in |
|00000e20| 6f 6e 65 20 77 69 6c 6c | 20 72 75 6e 20 69 6e 20 |one will| run in |
|00000e30| 74 68 65 20 6f 74 68 65 | 72 2e 22 20 63 72 20 73 |the othe|r." cr s|
|00000e40| 63 72 0d 20 20 20 20 2e | 22 20 20 20 20 20 54 68 |cr.    .|"     Th|
|00000e50| 65 20 64 6f 63 75 6d 65 | 6e 74 61 74 69 6f 6e 20 |e docume|ntation |
|00000e60| 61 6e 64 20 65 78 61 6d | 70 6c 65 20 66 69 6c 65 |and exam|ple file|
|00000e70| 73 20 68 61 76 65 20 62 | 65 65 6e 22 20 73 63 72 |s have b|een" scr|
|00000e80| 0d 20 20 20 20 2e 22 20 | 20 20 63 6f 6d 70 6c 65 |.    ." |  comple|
|00000e90| 74 65 6c 79 20 72 65 77 | 72 69 74 74 65 6e 2e 20 |tely rew|ritten. |
|00000ea0| 20 53 65 76 65 72 61 6c | 20 62 75 67 73 20 68 61 | Several| bugs ha|
|00000eb0| 76 65 20 62 65 65 6e 22 | 20 73 63 72 0d 20 20 20 |ve been"| scr.   |
|00000ec0| 20 2e 22 20 20 20 72 65 | 6d 6f 76 65 64 20 66 72 | ."   re|moved fr|
|00000ed0| 6f 6d 20 74 68 65 20 70 | 72 6f 67 72 61 6d 2e 22 |om the p|rogram."|
|00000ee0| 20 63 72 20 73 63 72 0d | 20 20 20 20 2e 22 20 20 | cr scr.|    ."  |
|00000ef0| 20 20 20 54 68 65 20 61 | 64 64 72 65 73 73 65 73 |   The a|ddresses|
|00000f00| 20 6f 66 20 73 6f 6d 65 | 20 69 6d 70 6f 72 74 61 | of some| importa|
|00000f10| 6e 74 20 76 61 72 69 61 | 62 6c 65 73 20 68 61 76 |nt varia|bles hav|
|00000f20| 65 22 20 73 63 72 0d 20 | 20 20 20 2e 22 20 20 20 |e" scr. |   ."   |
|00000f30| 62 65 65 6e 20 73 74 61 | 6e 64 61 72 64 69 7a 65 |been sta|ndardize|
|00000f40| 64 2e 22 0d 20 20 20 20 | 2e 61 72 72 6f 77 73 20 |d.".    |.arrows |
|00000f50| 3b 0d 0d 3a 20 50 35 20 | 20 63 6c 73 20 73 63 72 |;..: P5 | cls scr|
|00000f60| 0d 20 20 20 20 2e 22 20 | 47 65 74 20 73 74 61 72 |.    ." |Get star|
|00000f70| 74 65 64 20 71 75 69 63 | 6b 6c 79 3a 22 20 63 72 |ted quic|kly:" cr|
|00000f80| 20 73 63 72 0d 20 20 20 | 20 2e 22 20 31 29 20 50 | scr.   | ." 1) P|
|00000f90| 6c 61 63 65 20 61 20 63 | 6f 70 79 20 6f 66 20 50 |lace a c|opy of P|
|00000fa0| 6f 63 6b 65 74 20 46 6f | 72 74 68 20 61 6e 64 20 |ocket Fo|rth and |
|00000fb0| 74 68 65 20 74 65 78 74 | 20 66 69 6c 65 22 20 73 |the text| file" s|
|00000fc0| 63 72 0d 20 20 20 20 2e | 22 20 20 20 20 20 63 61 |cr.    .|"     ca|
|00000fd0| 6c 6c 65 64 20 50 61 69 | 6e 74 20 6f 6e 20 61 20 |lled Pai|nt on a |
|00000fe0| 73 74 61 72 74 75 70 20 | 64 69 73 6b 2c 20 6e 6f |startup |disk, no|
|00000ff0| 74 20 69 6e 20 61 6e 79 | 20 66 6f 6c 64 65 72 2e |t in any| folder.|
|00001000| 22 20 73 63 72 0d 20 20 | 20 20 2e 22 20 32 29 20 |" scr.  |  ." 2) |
|00001010| 44 6f 75 62 6c 65 20 63 | 6c 69 63 6b 20 6f 6e 20 |Double c|lick on |
|00001020| 50 6f 63 6b 65 74 20 46 | 6f 72 74 68 27 73 20 69 |Pocket F|orth's i|
|00001030| 63 6f 6e 2e 22 20 73 63 | 72 0d 20 20 20 20 2e 22 |con." sc|r.    ."|
|00001040| 20 33 29 20 57 68 65 6e | 20 74 68 65 20 77 69 6e | 3) When| the win|
|00001050| 64 6f 77 20 73 61 79 73 | 20 d2 6f 6b d3 20 74 79 |dow says| .ok. ty|
|00001060| 70 65 3a 22 20 73 63 72 | 0d 20 20 20 20 2e 22 20 |pe:" scr|.    ." |
|00001070| 20 20 20 20 20 20 20 20 | 20 20 20 20 2d 2d 3e 20 |        |    --> |
|00001080| 70 61 69 6e 74 22 20 73 | 63 72 0d 20 20 20 20 2e |paint" s|cr.    .|
|00001090| 22 20 20 20 20 20 77 69 | 74 68 20 61 20 27 72 65 |"     wi|th a 're|
|000010a0| 74 75 72 6e 27 20 61 74 | 20 74 68 65 20 65 6e 64 |turn' at| the end|
|000010b0| 2e 22 20 73 63 72 0d 20 | 20 20 20 2e 22 20 34 29 |." scr. |   ." 4)|
|000010c0| 20 57 61 74 63 68 20 74 | 68 65 20 77 6f 72 64 73 | Watch t|he words|
|000010d0| 20 73 63 72 6f 6c 6c 20 | 62 79 2c 20 74 68 65 6e | scroll |by, then|
|000010e0| 20 70 6c 61 79 20 77 69 | 74 68 20 74 68 65 22 20 | play wi|th the" |
|000010f0| 73 63 72 0d 20 20 20 20 | 2e 22 20 20 20 20 20 70 |scr.    |."     p|
|00001100| 72 6f 67 72 61 6d 20 66 | 6f 72 20 61 20 77 68 69 |rogram f|or a whi|
|00001110| 6c 65 2e 22 0d 20 20 20 | 20 2e 61 72 72 6f 77 73 |le.".   | .arrows|
|00001120| 20 3b 0d 0d 3a 20 50 36 | 20 20 63 6c 73 20 63 72 | ;..: P6|  cls cr|
|00001130| 20 73 63 72 0d 20 20 20 | 20 2e 22 20 20 20 50 72 | scr.   | ."   Pr|
|00001140| 69 6e 74 20 61 6e 64 20 | 72 65 61 64 20 74 68 65 |int and |read the|
|00001150| 20 6d 61 6e 75 61 6c 20 | 61 6e 64 20 74 68 65 20 | manual |and the |
|00001160| 67 6c 6f 73 73 61 72 79 | 2e 22 20 63 72 20 73 63 |glossary|." cr sc|
|00001170| 72 0d 20 20 20 20 2e 22 | 20 20 20 54 68 65 20 6d |r.    ."|   The m|
|00001180| 61 6e 75 61 6c 20 69 73 | 20 61 20 31 33 20 70 61 |anual is| a 13 pa|
|00001190| 67 65 20 4d 61 63 57 72 | 69 74 65 20 34 2e 35 20 |ge MacWr|ite 4.5 |
|000011a0| 64 6f 63 75 6d 65 6e 74 | 22 20 73 63 72 0d 20 20 |document|" scr.  |
|000011b0| 20 20 2e 22 20 66 6f 72 | 6d 61 74 74 65 64 20 66 |  ." for|matted f|
|000011c0| 6f 72 20 49 6d 61 67 65 | 77 72 69 74 65 72 20 69 |or Image|writer i|
|000011d0| 6e 20 31 32 20 70 6f 69 | 6e 74 20 47 65 6e 65 76 |n 12 poi|nt Genev|
|000011e0| 61 20 66 6f 6e 74 2e 22 | 20 63 72 20 73 63 72 0d |a font."| cr scr.|
|000011f0| 20 20 20 20 2e 22 20 20 | 20 49 74 20 69 73 20 73 |    ."  | It is s|
|00001200| 75 69 74 61 62 6c 65 20 | 66 6f 72 20 75 73 65 20 |uitable |for use |
|00001210| 61 73 20 61 20 72 65 66 | 65 72 65 6e 63 65 20 74 |as a ref|erence t|
|00001220| 6f 20 50 6f 63 6b 65 74 | 20 46 6f 72 74 68 22 20 |o Pocket| Forth" |
|00001230| 73 63 72 0d 20 20 20 20 | 2e 22 20 66 6f 72 20 6f |scr.    |." for o|
|00001240| 6c 64 20 68 61 74 73 20 | 20 5f 41 4e 44 5f 20 61 |ld hats | _AND_ a|
|00001250| 73 20 61 20 73 75 70 70 | 6c 65 6d 65 6e 74 20 74 |s a supp|lement t|
|00001260| 6f 20 42 72 6f 64 69 65 | 27 73 22 20 73 63 72 0d |o Brodie|'s" scr.|
|00001270| 20 20 20 20 2e 22 20 5f | 53 74 61 72 74 69 6e 67 |    ." _|Starting|
|00001280| 20 46 4f 52 54 48 5f 20 | 66 6f 72 20 6e 65 77 20 | FORTH_ |for new |
|00001290| 46 4f 52 54 48 65 72 73 | 2e 22 0d 20 20 20 20 2e |FORTHers|.".    .|
|000012a0| 61 72 72 6f 77 73 20 3b | 0d 0d 3a 20 50 37 20 20 |arrows ;|..: P7  |
|000012b0| 63 6c 73 20 63 72 20 73 | 63 72 0d 20 20 20 20 2e |cls cr s|cr.    .|
|000012c0| 22 20 20 20 54 68 65 20 | 67 6c 6f 73 73 61 72 79 |"   The |glossary|
|000012d0| 20 69 73 20 61 6e 20 38 | 20 70 61 67 65 20 45 64 | is an 8| page Ed|
|000012e0| 69 74 20 32 2e 31 20 64 | 6f 63 75 6d 65 6e 74 22 |it 2.1 d|ocument"|
|000012f0| 20 73 63 72 0d 20 20 20 | 20 2e 22 20 61 6c 73 6f | scr.   | ." also|
|00001300| 20 49 6d 61 67 65 77 72 | 69 74 65 72 20 66 6f 72 | Imagewr|iter for|
|00001310| 6d 61 74 74 65 64 20 75 | 73 69 6e 67 20 39 20 70 |matted u|sing 9 p|
|00001320| 6f 69 6e 74 20 47 65 6e | 65 76 61 2e 22 20 63 72 |oint Gen|eva." cr|
|00001330| 20 73 63 72 0d 20 20 20 | 20 2e 22 20 20 20 54 68 | scr.   | ."   Th|
|00001340| 65 20 67 6c 6f 73 73 61 | 72 79 20 69 73 20 61 20 |e glossa|ry is a |
|00001350| 63 6f 6d 70 6c 65 74 65 | 20 6c 69 73 74 20 6f 66 |complete| list of|
|00001360| 20 61 6c 6c 20 6f 66 20 | 74 68 65 20 77 6f 72 64 | all of |the word|
|00001370| 73 22 20 73 63 72 0d 20 | 20 20 20 2e 22 20 28 63 |s" scr. |   ." (c|
|00001380| 61 6c 6c 61 62 6c 65 20 | 72 6f 75 74 69 6e 65 73 |allable |routines|
|00001390| 2c 20 65 74 63 2e 29 20 | 77 69 74 68 20 61 20 67 |, etc.) |with a g|
|000013a0| 75 69 64 65 20 74 6f 20 | 74 68 65 69 72 20 75 73 |uide to |their us|
|000013b0| 65 2e 22 0d 20 20 20 20 | 2e 61 72 72 6f 77 73 20 |e.".    |.arrows |
|000013c0| 3b 0d 0d 3a 20 50 38 20 | 20 63 6c 73 20 63 72 20 |;..: P8 | cls cr |
|000013d0| 73 63 72 0d 20 20 20 20 | 2e 22 20 20 20 53 6f 75 |scr.    |."   Sou|
|000013e0| 72 63 65 20 63 6f 64 65 | 2c 20 70 72 69 6e 74 65 |rce code|, printe|
|000013f0| 64 20 64 6f 63 75 6d 65 | 6e 74 61 74 69 6f 6e 20 |d docume|ntation |
|00001400| 61 6e 64 20 75 6e 53 74 | 75 66 66 65 64 22 20 73 |and unSt|uffed" s|
|00001410| 63 72 0d 20 20 20 20 2e | 22 20 66 69 6c 65 73 20 |cr.    .|" files |
|00001420| 61 72 65 20 61 76 61 69 | 6c 61 62 6c 65 2e 20 20 |are avai|lable.  |
|00001430| 43 6f 6e 74 61 63 74 20 | 74 68 65 20 61 75 74 68 |Contact |the auth|
|00001440| 6f 72 2e 22 20 63 72 20 | 73 63 72 0d 20 20 20 20 |or." cr |scr.    |
|00001450| 2e 22 20 20 20 54 68 65 | 20 50 6f 63 6b 65 74 20 |."   The| Pocket |
|00001460| 46 6f 72 74 68 20 73 6f | 75 72 63 65 20 69 73 20 |Forth so|urce is |
|00001470| 61 70 70 72 6f 78 20 31 | 30 30 4b 20 6f 66 20 4d |approx 1|00K of M|
|00001480| 44 53 22 20 73 63 72 0d | 20 20 20 20 2e 22 20 61 |DS" scr.|    ." a|
|00001490| 73 73 65 6d 62 6c 79 20 | 63 6f 64 65 2e 20 20 49 |ssembly |code.  I|
|000014a0| 6e 73 74 72 75 63 74 69 | 6f 6e 73 20 61 72 65 20 |nstructi|ons are |
|000014b0| 69 6e 63 6c 75 64 65 64 | 2e 22 0d 20 20 20 20 2e |included|.".    .|
|000014c0| 61 72 72 6f 77 73 20 3b | 0d 0d 3a 20 50 39 20 20 |arrows ;|..: P9  |
|000014d0| 63 6c 73 20 36 35 20 38 | 34 20 21 70 65 6e 20 2e |cls 65 8|4 !pen .|
|000014e0| 22 20 54 68 69 73 20 73 | 70 61 63 65 20 69 73 20 |" This s|pace is |
|000014f0| 61 76 61 69 6c 61 62 6c | 65 2e 22 20 2e 61 61 72 |availabl|e." .aar|
|00001500| 72 6f 77 20 3b 0d 0d 76 | 61 72 69 61 62 6c 65 20 |row ;..v|ariable |
|00001510| 50 57 48 49 43 48 20 20 | 30 20 70 77 68 69 63 68 |PWHICH  |0 pwhich|
|00001520| 20 21 20 20 28 20 77 68 | 69 63 68 20 70 61 67 65 | !  ( wh|ich page|
|00001530| 20 74 6f 20 62 65 20 64 | 72 61 77 6e 20 29 0d 63 | to be d|rawn ).c|
|00001540| 72 65 61 74 65 20 50 4c | 49 53 54 20 20 28 20 6f |reate PL|IST  ( o|
|00001550| 72 64 65 72 65 64 20 6c | 69 73 74 20 6f 66 20 72 |rdered l|ist of r|
|00001560| 6f 75 74 69 6e 65 73 20 | 6f 72 20 22 70 61 67 65 |outines |or "page|
|00001570| 73 22 20 29 0d 20 20 20 | 20 27 20 70 31 20 2c 20 |s" ).   | ' p1 , |
|00001580| 20 27 20 70 32 20 2c 20 | 20 27 20 70 33 20 2c 20 | ' p2 , | ' p3 , |
|00001590| 20 27 20 70 34 20 2c 20 | 20 27 20 70 35 20 2c 0d | ' p4 , | ' p5 ,.|
|000015a0| 20 20 20 20 27 20 70 36 | 20 2c 20 20 27 20 70 37 |    ' p6| ,  ' p7|
|000015b0| 20 2c 20 20 27 20 70 38 | 20 2c 20 20 27 20 70 39 | ,  ' p8| ,  ' p9|
|000015c0| 20 2c 0d 0d 28 20 62 75 | 74 74 6f 6e 20 61 6e 64 | ,..( bu|tton and|
|000015d0| 20 65 76 65 6e 74 20 68 | 61 6e 64 6c 65 72 73 20 | event h|andlers |
|000015e0| 29 0d 3a 20 44 4f 49 54 | 20 20 70 77 68 69 63 68 |).: DOIT|  pwhich|
|000015f0| 20 40 20 32 2a 20 70 6c | 69 73 74 20 2b 20 40 20 | @ 2* pl|ist + @ |
|00001600| 65 78 65 63 75 74 65 20 | 3b 20 20 28 20 64 72 61 |execute |;  ( dra|
|00001610| 77 20 74 68 65 20 70 77 | 68 69 63 68 74 68 20 70 |w the pw|hichth p|
|00001620| 61 67 65 20 29 0d 3a 20 | 44 4f 41 46 54 20 20 70 |age ).: |DOAFT  p|
|00001630| 77 68 69 63 68 20 40 20 | 31 20 2d 20 30 20 6d 61 |which @ |1 - 0 ma|
|00001640| 78 20 70 77 68 69 63 68 | 20 21 20 64 6f 69 74 20 |x pwhich| ! doit |
|00001650| 3b 20 20 28 20 64 65 63 | 72 65 6d 65 6e 74 20 70 |;  ( dec|rement p|
|00001660| 77 68 69 63 68 20 29 0d | 3a 20 44 4f 46 4f 52 20 |which ).|: DOFOR |
|00001670| 20 70 77 68 69 63 68 20 | 40 20 31 2b 20 38 20 6d | pwhich |@ 1+ 8 m|
|00001680| 69 6e 20 70 77 68 69 63 | 68 20 21 20 64 6f 69 74 |in pwhic|h ! doit|
|00001690| 20 3b 20 20 28 20 69 6e | 63 72 65 6d 65 6e 74 20 | ;  ( in|crement |
|000016a0| 70 77 68 69 63 68 20 29 | 0d 3a 20 44 4f 42 55 54 |pwhich )|.: DOBUT|
|000016b0| 54 20 20 28 20 2d 2d 20 | 29 20 28 20 62 75 74 74 |T  ( -- |) ( butt|
|000016c0| 6f 6e 20 68 61 6e 64 6c | 65 72 20 29 0d 20 20 20 |on handl|er ).   |
|000016d0| 20 40 6d 6f 75 73 65 20 | 61 70 6f 6c 79 20 3f 70 | @mouse |apoly ?p|
|000016e0| 68 69 74 20 49 46 20 61 | 70 6f 6c 79 20 32 40 20 |hit IF a|poly 2@ |
|000016f0| 32 3e 72 20 2c 24 20 41 | 38 43 39 20 64 6f 61 66 |2>r ,$ A|8C9 doaf|
|00001700| 74 20 45 4c 53 45 0d 20 | 20 20 20 20 20 40 6d 6f |t ELSE. |     @mo|
|00001710| 75 73 65 20 66 70 6f 6c | 79 20 3f 70 68 69 74 20 |use fpol|y ?phit |
|00001720| 49 46 20 66 70 6f 6c 79 | 20 32 40 20 32 3e 72 20 |IF fpoly| 2@ 2>r |
|00001730| 2c 24 20 41 38 43 39 20 | 20 64 6f 66 6f 72 20 0d |,$ A8C9 | dofor .|
|00001740| 20 20 20 20 54 48 45 4e | 20 20 54 48 45 4e 20 3b |    THEN|  THEN ;|
|00001750| 0d 0d 76 61 72 69 61 62 | 6c 65 20 49 43 4f 55 4e |..variab|le ICOUN|
|00001760| 54 20 20 30 20 69 63 6f | 75 6e 74 20 21 20 20 28 |T  0 ico|unt !  (|
|00001770| 20 74 69 6d 65 72 20 29 | 0d 3a 20 44 4f 49 44 4c | timer )|.: DOIDL|
|00001780| 45 20 20 70 77 68 69 63 | 68 20 40 20 30 3d 20 49 |E  pwhic|h @ 0= I|
|00001790| 46 20 20 28 20 69 66 20 | 69 74 73 20 74 68 65 20 |F  ( if |its the |
|000017a0| 74 69 74 6c 65 20 70 61 | 67 65 20 29 0d 20 20 20 |title pa|ge ).   |
|000017b0| 20 20 20 31 30 30 20 69 | 63 6f 75 6e 74 20 2b 21 |   100 i|count +!|
|000017c0| 20 20 28 20 69 6e 63 72 | 65 6d 65 6e 74 20 69 63 |  ( incr|ement ic|
|000017d0| 6f 75 6e 74 20 29 0d 20 | 20 20 20 20 20 69 63 6f |ount ). |     ico|
|000017e0| 75 6e 74 20 40 20 30 3c | 20 49 46 20 20 28 20 69 |unt @ 0<| IF  ( i|
|000017f0| 66 20 69 63 6f 75 6e 74 | 20 3e 20 33 32 37 36 37 |f icount| > 32767|
|00001800| 20 29 0d 20 20 20 20 20 | 20 20 20 30 20 69 63 6f | ).     |   0 ico|
|00001810| 75 6e 74 20 21 20 20 28 | 20 72 65 73 65 74 20 74 |unt !  (| reset t|
|00001820| 69 6d 65 72 20 29 0d 20 | 20 20 20 20 20 20 20 32 |imer ). |       2|
|00001830| 20 3e 72 20 2c 24 20 41 | 38 38 39 20 20 28 20 53 | >r ,$ A|889  ( S|
|00001840| 72 63 58 6f 72 20 5f 54 | 65 78 74 4d 6f 64 65 20 |rcXor _T|extMode |
|00001850| 29 0d 20 20 20 20 20 20 | 20 20 32 33 20 33 30 20 |).      |  23 30 |
|00001860| 21 70 65 6e 20 2e 22 20 | 4e 45 57 21 20 26 20 49 |!pen ." |NEW! & I|
|00001870| 4d 50 52 4f 56 45 44 21 | 22 0d 20 20 20 20 20 20 |MPROVED!|".      |
|00001880| 54 48 45 4e 20 54 48 45 | 4e 20 3b 0d 0d 3a 20 53 |THEN THE|N ;..: S|
|00001890| 54 41 52 54 20 2a 61 70 | 6f 6c 79 20 2a 66 70 6f |TART *ap|oly *fpo|
|000018a0| 6c 79 20 20 73 66 6f 6e | 74 0d 20 20 20 62 65 67 |ly  sfon|t.   beg|
|000018b0| 69 6e 20 3f 74 65 72 6d | 69 6e 61 6c 20 64 72 6f |in ?term|inal dro|
|000018c0| 70 20 61 67 61 69 6e 20 | 3b 20 20 28 20 65 76 65 |p again |;  ( eve|
|000018d0| 6e 74 20 6c 6f 6f 70 20 | 20 61 70 70 6c 2e 20 6f |nt loop | appl. o|
|000018e0| 6e 6c 79 20 29 0d 0d 34 | 35 30 20 32 35 30 20 38 |nly )..4|50 250 8|
|000018f0| 20 2b 6d 64 20 32 21 20 | 20 28 20 73 65 74 20 77 | +md 2! | ( set w|
|00001900| 69 6e 64 6f 77 20 73 69 | 7a 65 20 29 0d 27 20 64 |indow si|ze ).' d|
|00001910| 6f 69 74 20 20 20 31 34 | 20 2b 6d 64 20 21 20 20 |oit   14| +md !  |
|00001920| 28 20 73 65 74 20 75 70 | 64 61 74 65 20 68 61 6e |( set up|date han|
|00001930| 64 6c 65 72 20 29 0d 27 | 20 64 6f 62 75 74 74 20 |dler ).'| dobutt |
|00001940| 31 36 20 2b 6d 64 20 21 | 20 20 28 20 73 65 74 20 |16 +md !|  ( set |
|00001950| 62 75 74 74 6f 6e 20 68 | 61 6e 64 6c 65 72 20 29 |button h|andler )|
|00001960| 0d 27 20 64 6f 69 64 6c | 65 20 32 30 20 2b 6d 64 |.' doidl|e 20 +md|
|00001970| 20 21 20 20 28 20 73 65 | 74 20 69 64 6c 65 20 68 | !  ( se|t idle h|
|00001980| 61 6e 64 6c 65 72 20 29 | 0d 0d 68 65 78 20 34 45 |andler )|..hex 4E|
|00001990| 45 42 20 74 69 62 20 38 | 32 20 2b 20 21 20 20 28 |EB tib 8|2 + !  (|
|000019a0| 20 70 61 74 63 68 20 77 | 69 74 68 20 4a 4d 50 20 | patch w|ith JMP |
|000019b0| 27 73 74 61 72 74 5b 42 | 50 5d 20 29 0d 27 20 73 |'start[B|P] ).' s|
|000019c0| 74 61 72 74 20 74 69 62 | 20 38 34 20 2b 20 21 20 |tart tib| 84 + ! |
|000019d0| 20 28 20 74 69 62 2b 24 | 38 32 20 69 73 20 61 20 | ( tib+$|82 is a |
|000019e0| 67 6f 6f 64 20 70 6c 61 | 63 65 20 66 6f 72 20 61 |good pla|ce for a|
|000019f0| 20 70 61 74 63 68 20 29 | 0d 73 61 76 65 0d 3a 20 | patch )|.save.: |
|00001a00| 62 79 65 20 2c 24 20 41 | 39 46 34 20 3b 20 62 79 |bye ,$ A|9F4 ; by|
|00001a10| 65 0d 0d 28 20 54 68 65 | 20 52 65 61 64 4d 65 20 |e..( The| ReadMe |
|00001a20| 61 70 70 6c 69 63 61 74 | 69 6f 6e 20 61 6c 73 6f |applicat|ion also|
|00001a30| 20 68 61 73 20 62 65 65 | 6e 20 64 6f 63 74 6f 72 | has bee|n doctor|
|00001a40| 65 64 20 77 69 74 68 20 | 52 65 73 45 64 69 74 20 |ed with |ResEdit |
|00001a50| 29 0d 28 20 74 6f 20 73 | 6d 6f 6f 74 68 20 69 74 |).( to s|mooth it|
|00001a60| 20 6f 75 74 2e 20 20 54 | 68 65 20 41 62 6f 75 74 | out.  T|he About|
|00001a70| 20 44 49 54 4c 2c 20 45 | 64 69 74 20 4d 45 4e 55 | DITL, E|dit MENU|
|00001a80| 2c 20 46 69 6c 65 20 4d | 45 4e 55 2c 20 29 0d 28 |, File M|ENU, ).(|
|00001a90| 20 57 49 4e 44 2c 20 49 | 43 4e 23 2c 20 53 49 5a | WIND, I|CN#, SIZ|
|00001aa0| 45 2c 20 61 6e 64 20 52 | 44 4d 45 20 72 65 73 6f |E, and R|DME reso|
|00001ab0| 75 72 63 65 73 20 6e 65 | 65 64 20 61 64 64 65 64 |urces ne|ed added|
|00001ac0| 20 6f 72 20 63 68 61 6e | 67 65 64 2e 20 29 00 00 | or chan|ged. )..|
|00001ad0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001ae0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001af0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001b00| 00 00 01 00 00 00 01 16 | 00 00 00 16 00 00 00 46 |........|.......F|
|00001b10| 30 38 09 fa d0 6e ff f8 | 54 40 3f 00 a8 93 20 6b |08...n..|T@?... k|
|00001b20| 00 86 2f 10 a8 84 4e 75 | 20 3b 50 04 4e 75 00 10 |../...Nu| ;P.Nu..|
|00001b30| 06 52 65 61 64 65 72 65 | 02 00 00 00 54 45 58 54 |.Readere|....TEXT|
|00001b40| 45 44 49 54 00 00 00 00 | 00 60 06 39 00 00 00 61 |EDIT....|.`.9...a|
|00001b50| 00 00 54 45 58 54 45 44 | 49 54 00 00 00 00 00 60 |..TEXTED|IT.....`|
|00001b60| 06 39 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |.9......|........|
|00001b70| 00 00 9e 26 df fd 00 00 | 1a 4e 00 00 01 5c a8 db |...&....|.N...\..|
|00001b80| a8 97 20 6e 00 10 4a 6e | 00 08 66 0a 32 28 00 04 |.. n..Jn|..f.2(..|
|00001b90| 30 01 51 40 60 0c 4a 6e | 00 0a 66 32 30 10 32 00 |0.Q@`.Jn|..f20.2.|
|00001ba0| 50 41 43 f8 09 ce 32 c0 | 32 e8 00 02 32 c1 32 a8 |PAC...2.|2...2.2.|
|00001bb0| 00 06 42 a7 a8 d8 26 57 | 48 78 09 ce a8 df 2f 2e |..B...&W|Hx..../.|
|00001bc0| 00 14 2f 0b 2f 2e 00 14 | a8 e5 2f 0b a8 d9 26 5f |.././...|../...&_|
|00001bd0| 4e 5e 20 5f de fc 00 10 | 4e d0 78 10 42 67 2f 03 |N^ _....|N.x.Bg/.|
|00001be0| 2f 2b 00 76 a8 e8 4a 1f | 67 04 70 01 60 6c 42 67 |/+.v..J.|g.p.`lBg|
|00001bf0| 2f 03 2f 2b 00 72 a8 e8 | 4a 1f 67 62 42 67 2f 03 |/./+.r..|J.gbBg/.|
|00001c00| 00 00 00 0a 00 09 06 4d | 6f 6e 61 63 6f 00 00 00 |.......M|onaco...|
|00001c10| 00 04 00 06 00 14 00 00 | 01 00 00 00 01 16 00 00 |........|........|
|00001c20| 00 16 00 00 00 46 00 01 | 15 24 02 f2 00 00 00 1c |.....F..|.$......|
|00001c30| 00 46 00 01 45 46 4e 54 | 00 00 00 12 45 54 41 42 |.F..EFNT|....ETAB|
|00001c40| 00 00 00 1e 03 eb ff ff | 00 00 00 00 00 01 ca 08 |........|........|
|00001c50| 03 ec ff ff 00 00 00 0e | 00 01 c9 f4 00 00 00 00 |........|........|
|00001c60| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001c70| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+